home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs07.d81 / saided.arc / DOC.DRIVER (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  2KB  |  59 lines
  1. 1 POKE45,144:POKE46,017:CLR:DIMROW(7),LIGHT$(7)
  2. 2 L1$="[152][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]":L2$="[221][155]-[158][204]OADING [196]OC. [198]ILE[155]-[152][221]"
  3. 3 L3$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  4. 4 FORX=1TO7:ROW(X)=7+(2*(X-1)):NEXT:CO=1
  5. 5 LIGHT$(1)=" [211]YNTAX [197]RROR [215]EDGE [195]OMMANDS "
  6. 6 LIGHT$(2)=" [206]ON [205]ASKABLE [201]NTERRUPT [203]EYS "
  7. 7 LIGHT$(3)=" [193] [199]ENERAL [212]OPICS [196]ISCUSSION "
  8. 8 LIGHT$(4)=" [195]OMMENTS  ON  [195]OMPATIBILITY "
  9. 9 LIGHT$(5)=" [213]TILITY [200]ISTORY  &  [195]REDITS "
  10. 10 LIGHT$(6)=" [213]SE  OF THE  [211]CREEN  [197]DITOR "
  11. 11 LIGHT$(7)=" [213]SE  OF  [216]-[205]ON  64 [195]OMMANDS "
  12. 12 POKE53265,PEEK(53265)AND239
  13. 13 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  14. 14 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  15. 15 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[154]cURSO";
  16. 16 PRINT"RrETURN[159]}}[154]TO[153]dOYOUWISHTOSEE:";
  17. 17 PRINT"[154]TO[159]}}[154]sELECT[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][154]cHOOSE[159]}}[176]```````````````";
  18. 18 PRINT"``````````````[174]}}}[153] sYNTAX eRROR wEDGE cOMMANDS [146][159]}}}}";
  19. 19 PRINT"}}}}[153]nONmASKABLEiNTERRUPTkEYS[159]}";
  20. 20 PRINT"}}}}}}}[153]agENERALtOPICSdISCUS";
  21. 21 PRINT"SION[159]}}}}}}}}[153]cOMMENTSON";
  22. 22 PRINT"cOMPATIBILITY[159]}}}}}}}}[153]uTI";
  23. 23 PRINT"LITYhISTORY&cREDITS[159]}}}}}}}";
  24. 24 PRINT"}[153]uSEOFTHEsCREENeDITOR[159]}}}}";
  25. 25 PRINT"}}}}[153]uSEOFx-mON64cOMMANDS[159]}}}[173]```````````````";
  26. 26 PRINT"``````````````[189]}}[154]hARDCOPYMAYBEOBTAINEDBYPRESSING[159]}}[154]THEresto";
  27. 27 PRINT"reKEYFOLLOWEDBYTHEdKEY[159]}}[154]AFTERTHEUTILITYHASBEENACTIVATED.[159]";
  28. 28 PRINT"[221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  29. 29 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  30. 30 GOSUB41
  31. 31 :POKE211,9:POKE214,3:SYS58732:PRINTL1$
  32. 32 :POKE211,9:POKE214,4:SYS58732:PRINTL2$
  33. 33 :POKE211,9:POKE214,5:SYS58732:PRINTL3$
  34. 34 IFCO=1THENLOAD"WEDGE.DOC",8
  35. 35 IFCO=2THENLOAD"NMI.DOC",8
  36. 36 IFCO=3THENLOAD"TOPICS.DOC",8
  37. 37 IFCO=4THENLOAD"COMP.DOC",8
  38. 38 IFCO=5THENLOAD"CREDITS.DOC",8
  39. 39 IFCO=6THENLOAD"EDITOR.DOC",8
  40. 40 IFCO=7THENLOAD"XMON.DOC",8
  41. 41 GETW$
  42. 42 PO=PEEK(1066)+128:IFPO>256THENPO=PO-256
  43. 43 FORX=1066TO1070:POKEX,PO:NEXTX
  44. 44 FORX=1097TO1101:POKEX,PO:NEXTX
  45. 45 IFW$=""THEN41
  46. 46 IFW$=CHR$(13)THENRETURN
  47. 47 IFW$<>""ANDW$<>"[157]"ANDW$<>"[145]"ANDW$<>""THENGOTO41
  48. 48 OLD=CO
  49. 49 IFW$="[145]"THENCO=CO-1:IFCO<1THENCO=7
  50. 50 IFW$="[145]"THENGOSUB54:GOTO41
  51. 51 CO=CO+1:IFCO>7THENCO=1:GOSUB54:GOTO41
  52. 52 GOSUB54:GOTO41
  53. 53 RETURN
  54. 54 POKE211,6:POKE214,ROW(OLD):SYS58732
  55. 55 PRINTLIGHT$(OLD)
  56. 56 POKE211,6:POKE214,ROW(CO):SYS58732
  57. 57 PRINT""LIGHT$(CO)"[146]"
  58. 58 RETURN
  59.